home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / support / wheel.wwModel / newer.eve < prev    next >
Encoding:
Text File  |  1995-03-22  |  2.9 KB  |  84 lines
  1. #
  2. # This eve scene file generated by Michael B. Johnson's WW3DKit software running under NeXTSTEP.
  3. # Contact him at wave@media.mit.edu or (617) 547-0563 for more information.
  4. #
  5. # Writing out all the current values of the global variables:
  6. set rim(majorRadius) {1.99};
  7. set rim(minorRadius) {0.12};
  8. set rim(color) {0.924665 0.901624 1.000000};
  9. set tire(radius) {2.0};
  10. set tire(thickness) {0.100000};
  11. set tire(color) {.1 .1 .1};
  12. set torus(yScale) {0.100000};
  13. set torus(thetaMax) {360.0};
  14. set torus(minorRadius) {1.500000};
  15. set torus(phiMin) {90.000000};
  16. set torus(xTranslate) {0};
  17. set torus(xRotate) {0};
  18. set torus(phiMax) {270.000000};
  19. set torus(yRotate) {0};
  20. set torus(xScale) {0.100000};
  21. set torus(zTranslate) {0};
  22. set torus(zRotate) {0};
  23. set torus(majorRadius) {2.0};
  24. set torus(zScale) {0.100000};
  25. set torus(color) {0.837275 0.868831 1.000000};
  26. set torus(yTranslate) {0};
  27. set rubber {RCRubber};
  28. set modelPath {    +H    )…B@};
  29. set metal {RCMetal};
  30. # end of globals
  31. # Writing out all the current definitions of all the non built-in procs:
  32. # end of procs
  33. startShape wheel {0.831547 -0.444935 0.332510 0.000000 \
  34.                   0.457716 0.888028 0.043618 0.000000 \
  35.                   -0.314685 0.115925 0.942091 0.000000 \
  36.                   -0.050000 -0.050000 -5.799999 1.000000};
  37.  
  38.     startShape innerRim ;
  39.         EveCmd {Color $torus(color)} {\
  40.                 {0.000000 {Color {0.837275 0.868831 1.000000};}} \
  41.                };
  42.         EveCmd {Scale $torus(xScale) $torus(yScale) $torus(zScale)} {\
  43.                 {0.000000 {Scale 0.100000 0.100000 0.100000;}} \
  44.                };
  45.         EveCmd {Translate $torus(xTranslate) $torus(yTranslate) $torus(zTranslate)} {\
  46.                 {0.000000 {Translate 0.000000 0.000000 0.000000;}} \
  47.                };
  48.         EveCmd {Rotate $torus(xRotate) 1 0 0 } {\
  49.                 {0.000000 {Rotate 0.000000 1.000000 0.000000 0.000000;}} \
  50.                };
  51.         EveCmd {Rotate $torus(yRotate) 0 1 0 } {\
  52.                 {0.000000 {Rotate 0.000000 0.000000 1.000000 0.000000;}} \
  53.                };
  54.         EveCmd {Rotate $torus(zRotate) 0 0 1 } {\
  55.                 {0.000000 {Rotate 0.000000 0.000000 0.000000 1.000000;}} \
  56.                };
  57.         EveCmd {Torus $torus(majorRadius) $torus(minorRadius) $torus(phiMin) $torus(phiMax) $torus(thetaMax)} {\
  58.                 {0.000000 {Torus 2.000000 1.500000 90.000000 270.000000 360.000000;}} \
  59.                };
  60.  
  61.     endShape
  62.     startShape tire ;
  63.         Surface RCRubber;
  64.         EveCmd {Color $tire(color)} {\
  65.                 {0.000000 {Color {0.100000 0.100000 0.100000};}} \
  66.                };
  67.         EveCmd {Torus $tire(radius) $tire(thickness) 0 360 360} {\
  68.                 {0.000000 {Torus 2.000000 0.100000 0.000000 360.000000 360.000000;}} \
  69.                };
  70.  
  71.     endShape
  72.     startShape rim ;
  73.         Surface RCMetal;
  74.         EveCmd {Color $rim(color)} {\
  75.                 {0.000000 {Color {0.924665 0.901624 1.000000};}} \
  76.                };
  77.         EveCmd {Torus $rim(majorRadius)  $rim(minorRadius) 90 270  360} {\
  78.                 {0.000000 {Torus 1.990000 0.120000 90.000000 270.000000 360.000000;}} \
  79.                };
  80.  
  81.     endShape
  82.  
  83. endShape
  84.